
library(tidyverse)
library(cepespR)
library(readxl)
library(data.table)
library(stargazer)
library(haven)

#utilizar file= arquivo1.csv
library(readr)
arquivo1 <- read_delim("arquivo1.csv", 
                       delim = ";", escape_double = FALSE, locale = locale(decimal_mark = ",", 
                                                                           grouping_mark = ".", encoding = "WINDOWS-1252"), 
                       trim_ws = TRUE)



FN_e<-filter(arquivo1,Dep_Federal==0)
FN_f<-filter(arquivo1,Dep_Federal==1)




FN_f%>%filter(incubente==1)->m1
FN_f%>%filter(experi_munic_est==1)->m2
FN_f%>%filter(experi_munic==1)->m3
FN_f->m4

a<-summary(m1$G)
b<-summary(m2$G)
c<-summary(m3$G)
d<-summary(m4$G)
G_federal<-rbind(a,b,c,d)

G_federal<-round(G_federal, digits = 3)
G_federal<-as_tibble(G_federal)
G_federal<-select(G_federal,"1st Qu.":"3rd Qu.")


a<-summary(m1$V_Partic)
b<-summary(m2$V_Partic)
c<-summary(m3$V_Partic)
d<-summary(m4$V_Partic)
V_Partic_federal<-rbind(a,b,c,d)

V_Partic_federal<-round(V_Partic_federal, digits = 2)
V_Partic_federal<-as_tibble(V_Partic_federal)
V_Partic_federal<-select(V_Partic_federal,"1st Qu.":"3rd Qu.")

a<-m1 %>% count(Eleito, sort=TRUE)%>% 
  mutate(percent = n/sum(n)) %>% 
  select(-n) %>% 
  spread(Eleito, percent)
b<-m2 %>% count(Eleito, sort=TRUE)%>% 
  mutate(percent = n/sum(n)) %>% 
  select(-n) %>% 
  spread(Eleito, percent)
c<-m3 %>% count(Eleito, sort=TRUE)%>% 
  mutate(percent = n/sum(n)) %>% 
  select(-n) %>% 
  spread(Eleito, percent)
d<-m4 %>% count(Eleito, sort=TRUE)%>% 
  mutate(percent = n/sum(n)) %>% 
  select(-n) %>% 
  spread(Eleito, percent)

eleito_federal<-rbind(a,b,c,d)
eleito_federal<-rename(eleito_federal,eleito="1")
eleito_federal<-select(eleito_federal,eleito)
eleito_federal$eleito<-eleito_federal$eleito*100
eleito_federal<-round(eleito_federal, digits = 1)

Tabela6_federal<-cbind(G_federal,V_Partic_federal,eleito_federal)


FN_e%>%filter(incubente==1)->m1
FN_e%>%filter(experi_munic==1)->m2
FN_e->m3

a<-summary(m1$G)
b<-summary(m2$G)
c<-summary(m3$G)
G_estadual<-rbind(a,b,c)

G_estadual<-round(G_estadual, digits = 3)
G_estadual<-as_tibble(G_estadual)
G_estadual<-select(G_estadual,"1st Qu.":"3rd Qu.")


a<-summary(m1$V_Partic)
b<-summary(m2$V_Partic)
c<-summary(m3$V_Partic)
V_Partic_estadual<-rbind(a,b,c)

V_Partic_estadual<-round(V_Partic_estadual, digits = 2)
V_Partic_estadual<-as_tibble(V_Partic_estadual)
V_Partic_estadual<-select(V_Partic_estadual,"1st Qu.":"3rd Qu.")

a<-m1 %>% count(Eleito, sort=TRUE)%>% 
  mutate(percent = n/sum(n)) %>% 
  select(-n) %>% 
  spread(Eleito, percent)
b<-m2 %>% count(Eleito, sort=TRUE)%>% 
  mutate(percent = n/sum(n)) %>% 
  select(-n) %>% 
  spread(Eleito, percent)
c<-m3 %>% count(Eleito, sort=TRUE)%>% 
  mutate(percent = n/sum(n)) %>% 
  select(-n) %>% 
  spread(Eleito, percent)


eleito_estadual<-rbind(a,b,c)
eleito_estadual<-rename(eleito_estadual,eleito="1")
eleito_estadual<-select(eleito_estadual,eleito)
eleito_estadual$eleito<-eleito_estadual$eleito*100
eleito_estadual<-round(eleito_estadual, digits = 1)

Tabela6_estadual<-cbind(G_estadual,V_Partic_estadual,eleito_estadual)

rm(eleito_estadual,eleito_federal,G_estadual,G_federal,m1,m2,m3,m4,
   V_Partic_estadual,V_Partic_federal,a,b,c,d)


